(normal-top-level): Reset standard-value of `user-full-name' here.

diff --git a/lisp/startup.el b/lisp/startup.el
index eb8ce6e8418e5b7b08744123d7a847fbd062a3ac..99de8ff30d17ac593e59c543b6a1d02b39d0fdd4 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -429,6 +429,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
       (save-excursion
        (set-buffer (get-buffer "*Messages*"))
        (setq default-directory dir)))
+    ;; `user-full-name' is now known; reset its standard-value here.
+    (put 'user-full-name 'standard-value
+        (list (default-value 'user-full-name)))
     ;; For root, preserve owner and group when editing files.
     (if (equal (user-uid) 0)
        (setq backup-by-copying-when-mismatch t))